home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / funbasic.arc / 92ELL.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-08-26  |  204 b   |  12 lines
  1. 10  CLS : SCREEN 1
  2. 30  RANDOMIZE(VAL(RIGHT$(TIME$,2)))
  3. 40  FOR I = 110 TO 50 STEP -4
  4. 50  C = INT(RND*15) + 1
  5. 60  CIRCLE(160,100),I,C
  6. 70  NEXT I
  7. 80  FOR I = 1 TO 92
  8. 90  D = INT(RND*15) + 1
  9. 100  CIRCLE(160,100),I,D,,,1/15
  10. 105  CIRCLE(160,100),I,D,,,15/1
  11. 110  NEXT I
  12.